;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 4/13/2006
;;;	   Edited: 4/13/2006
(defun c:vlxall ()
  (setq vlx_list (vl-list-exported-functions))
  (if vlx_list
    (PROGN
      (PRINC "\nDefined commands:\n")
      (MAPCAR '(LAMBDA (x) (PRINC (substr x 3))(princ " ")(princ)) vlx_list)
      (PRINC)
    )
    (PROGN
      (PRINC "\nNo commands have been Defined! \n")
      (PRINC)
    )
  )
  (PRINC)
)
(defun c:vlx ()
  (setq first_char (STRCASE (ustr 1 "" "First character of defined command:" (IF first_char first_char "A"))))
  (setq vlx_list (vl-list-exported-functions))
  (if vlx_list
    (PROGN
      (PRINC "\nDefined commands:\n")
      (MAPCAR '(LAMBDA (x) (IF (WCMATCH (STRCASE (SUBSTR x 3 1)) first_char)(PROGN(PRINC (substr x 3))(princ " ")(princ)))) vlx_list)
      (PRINC)
    )
    (PROGN
      (PRINC "\nNo commands have been Defined! \n")
      (PRINC)
    )
  )
  (PRINC)
)